subroutine calciabcdg(r1, r2, t1, t2, iabcd, icore)
!use common
use mod_iop
use mod_size
use mod_orbit
use mod_ioff 
real*8, intent(in) :: r1(*), r2(*), t1(*), t2(*)
real*8, intent(in) :: iabcd(*), icore(*)
!
call effectt2(t2, t1,  icore, 1.d0, no, nv)
if(ioiabcd==0) then 
call r2abij_t2efij_iefab_g(r2, t2, iabcd, icore, 0.5d0)
elseif(ioiabcd==1) then 
write(6,*)'iabcd was calculationed with IO'
call r2abij_t2efij_iefab_oc_g(r2, t2, iabcd, icore, 0.5d0)
endif
call effectt2(t2, t1,  icore, -1.d0, no, nv)
!------
return
end
